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Abstract. Initial Semantics aims at interpreting the syntax associated to a signature as 
the initial object of some category of "models", yielding induction and recursion principles 
for abstract syntax. Zsido [ZsilOl Chap. 6] proves an initiality result for simply-typed 
syntax: given a signature S, the abstract syntax associated to S constitutes the initial 
object in a category of models of S in monads. 

However, the iteration principle her theorem provides only accounts for translations 
between two languages over a fixed set of object types. We generalize Zsido's notion of 
model such that object types may vary, yielding a larger category, while preserving initiality 
of the syntax therein. Thus we obtain an extended initiality theorem for typed abstract 
syntax, in which translations between terms over different types can be specified via the 
associated category-theoretic iteration operator as an initial morphism. Our definitions 
ensure that translations specified via initiality are type-safe, i.e. compatible with the typing 
in the source and target language in the obvious sense. 

Our main example is given via the propositions-as-types paradigm: we specify proposi- 
tions and inference rules of classical and intuitionistic propositional logics through their 
respective typed signatures. Afterwards we use the category-theoretic iteration operator to 
specify a double negation translation from the former to the latter. 

A second example is given by the signature of PCF. For this particular case, we formalize 
the theorem in the proof assistant Coq. Afterwards we specify, via the category-theoretic 
iteration operator, translations from PCF to the untyped lambda calculus. 



1. Introduction 

Initial Semantics characterizes the set of terms of a language via a universal property - 
namely as an initial object in some category — , and gives a category-theoretic account 
of the iteration principle it is equipped with. By working in a suitable category one can 
specify additional structure and properties on the syntax. As an example, the initial object 
in our category is by definition equipped with a substitution operation, due to our use of 



monads (cf. Def. 2.1 Exs. 2.9 2.13). Furthermore, this substitution is by construction 



type-safe. Initiality also provides an iteration principle which allows to specify maps as 
initial morphisms on the the set of terms of a syntax. The main focus of this paper is to 
obtain a sufficiently general iteration operator that allows to specify translations between 
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terms over different sets of object types (to which we also refer as sorts) as such initial 
morphisms. 

An important property of translations between programming languages is that they 
should preserve the meaning of programs. While the present work does not consider this 
aspect — it merely treats the syntactic part — , we outline our ideas concerning faithfulness 
of translation with respect to meaning in Sec. [6j 

In Sec. [LT] we explain initiality for syntax without binding by means of an example and 
present our view on syntax with variable binding and sorts. Related work is reviewed in Sec. 



1.2 In Sec. |1.3|we give an overview of the paper. 



1.1. Natural Numbers, Syntax with Binding and Types. 

1.1.1. Natural Numbers. Consider the category Xf an object of which is a triple (X, Z, S) of 
a set X, a constant Z £ X and a map S : X — > X. A morphism to another such (X' , Z', S') 
is a map / : X — > X' such that 

f(Z) = Z' and S'of = foS . (1.1) 

This category has an initial object (N, Zero, Succ), and a map / from N to a set X can be 
specified by giving an element Z £ X and a map S : X — > X. This way of specifying the 
map / is an iteration principle for N resulting from its initiality in the category A/ - . 

Our work consists in providing, via initiality, a category-theoretic iteration operator for 
typed syntax with variable binding, similar in spirit to that for the natural numbers. In the 
rest of this section we consider some aspects that arise when passing from our introductory 
example about natural numbers to syntax with variable binding and types. 

1.1.2. Variable Binding. For syntax with variable binding, we consider the set of terms to be 
parametrized by a context, i.e. a set of variables, whose elements may appear freely in those 
terms. The terms of the untyped lambda calculus, for instance, can be implemented in the 
proof assistant Coq |CoqlO| as the following parametrized datatype: 

Inductive ULC (V : Type) : Type := 
| Var : V -> ULC V 
| Abs : ULC (option V) -> ULC V 
| App : ULC V -> ULC V -> ULC V. 

where option V stands for an extended context obtained by enriching the context V with a 
new distinguished variable — the variable which is bound by the Abs constructor. 

The map V *- > ULC(F) is in fact functorial: given a map / : V — > W, the map 
ULC(/) : ULC(y) — > \JLC(W) renames any free variable v £ V in a term by fiv), yielding 
a term with free variables in W . Accordingly, instead of sets and maps of sets as for the 
introductory example, we consider functors and natural transformations between them. 
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1.1.3. Adding Types. The interest of considering typed syntax is twofold: firstly, for pro- 
gramming languages, typing rules contain information of how to plug several terms together 
in semantically meaningful ways, and ensure properties such as termination. Secondly, 
via the propositions-as-types paradigm, logics may be considered as typed syntax, where 
propositions are viewed as types, and a term p : P of type P thus denotes a proof p of 
proposition P. In this vein, the inference rules correspond to term constructors, i.e. they 
are the basic bricks from which one builds terms — proofs — according to plugging rules. 
The premises of such an inference rule thus are represented by the inputs of the constructor, 
whereas the conclusion is represented by its output type. 

In the present work we consider both applications of types: our main example, a logic 
translation from classical to intuitionistic logic (cf. Secffl, works through the propositions-as- 
types paradigm. As a running example throughout this work we consider typed programming 
languages. 

Type systems exists with varying features, ranging from simply-typed syntax to syntax 
with dependent types, kinds, polymorphism, etc. By simply-typed syntax we mean a 
non-polymorphic syntax where the set of types is independent from the set of terms, i.e. 
type constructors only take types as arguments, In more sophisticated type systems types 
may depend on terms, leading to more complex definitions of arities and signatures. The 
present work is only concerned with simply-typed languages. 

One way to add types would be to make them part of the syntax, as in "Ax : t.x + 4". 
However, for simple type systems it is possible to separate the worlds of types and terms and 
consider typing as a map from terms to types, thus giving a simple mathematical structure 
to typing. How can we be sure that our terms are well-typed? Despite the separation of 
types and terms we still want typing to be tightly integrated into the process of building 
terms, in order to avoid constructing ill-typed terms. Separation of terms and types seems 
to contradict this goal. The answer lies in considering not one set of terms, but a family 
of sets, indexed by the set of object types. Term constructors then can be "picky" about 
what terms they take as arguments, accepting only those terms that have the suitable type. 
We also consider free variables to be equipped with an object type. Put differently, we do 
not consider terms over one set of variables, but over a family of sets of variables, indexed 
by the set of object types. We illustrate such a definition of a family of terms in the proof 
assistant Coq |CoqlO| using the example of the simply-typed lambda calculus SLC: 

Example 1.1 (Syntax of SLC). Let 

TshC '■'■= * ! 2~SLC ~» ?SLC 
be the set of types of the simply-typed lambda calculus. For each "typed set" V £ [Tslc, Set] 
and t E Tslc we denote by V% := V(t) the set associated to object type t £ Tslc- Hence 
ShC(V)t denotes the set of lambda terms of type t with free variables in V. In the following 
Coq code excerpt we write T for Tslc- 

Inductive SLC (V : T -> Type) : T -> Type := 
| Var : forall t, V t -> SLC V t 
| Abs : forall r s, SLC (V * r) s -> SLC V (r ~> s) 
| App : forall r s, SLC V (r ~> s) -> SLC V r -> SLC V s. 

Here V * r is Coq notation for V + {*r}, which is the family of sets V enriched with a new 
distinguished variable of type r £ Tslc ~~ the variable which is bound by the Abs(r, s) 
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constructor. The quantified variables s and t range over the set Tslc of object types. Indeed 
SLC can be interpreted as a functor 

SLC:[T SL c,Set]^ [Tslc, Set] 

on the category [Tslc , Set] whose objects are families of sets indexed by the set Tslc of 
types of SLC. 

This method of defining exactly the well-typed terms by organizing them into a type 
family parametrized by object types is called intrinsic typing [BHKM11 — as opposed to 
the extrinsic typing, where first a set of raw terms is defined, which is then filtered via a 
typing predicate. Intrinsic typing delegates object level typing to the meta language type 
system, such as the Coq type system in Ex. |1.1| In this way, the meta level type checker 
(e.g. Coq) sorts out ill-typed terms automatically: writing such a term yields a type error 
on the meta level. Furthermore, the intrinsic encoding comes with a much more convenient 
recursion principle; a map to any other type can simply be defined by specifying its image 
on the well-typed terms. When using extrinsic typing, a map on terms would either have 
to be defined on the set of raw terms, including ill-typed ones, or on just the well-typed 
terms by specifying an additional propositional argument expressing the welltypedness of the 
term argument. Benton et al. give detailed explanation about intrinsic typing in a recently 
published paper [BHKMllj . 

1.1.4. Substitution. Syntax with variable binding always comes with a (capture-avoiding) 
substitution operation. Fiore, Plotkin and Turi [FPT99J model substitution and its properties 
using the notion of monoid. An alternative point of view is given by monads: a monad 



(Def. 2.1) is an endofunctor with extra structure, and it is this additional structure that 



captures substitution (cf. Ex. 2.9), as exhibited by Altenkirch and Reus |AR99| . We review 



the monad structure on ULC (Ex. 2.9) and SLC (Ex. 2.13). 



1.2. Related Work. Initial Semantics for untyped syntax without variable binding was 
first considered by Birkhoff [Bir35 . Goguen et al. [GTWW77] give an overview over the 
literature about initial algebra and spell out explicitly the connection between initial algebras 
and abstract syntax. 

When passing to syntax with variable binding, the question of how to model binding 
arises. We give a possibly non-exhaustive list of techniques for binder representation: 

(1) Nominal syntax using named abstraction; 

(2) Higher-Order Abstract Syntax (HOAS), e.g. lam : (T —> T) —¥ T and its weak variant, 
e.g. lam : {var — > T) — > T; 

(3) Nested datatypes as presented in [BM98 . 

In the following, the numbers given in parentheses indicate the way variable binding is 
modeled, according to the list given above. Initial semantics for untyped syntax were 
presented by Gabbay and Pitts JGP991 (Ft])], Hofmann |Hof99l dgb] and Fiore et al. JFPT991 



(pi)]. Hirschowitz and Maggesi [HM07, ([3]j] prove an initiality result for arbitrary untyped 
syntax based on the notion of monad. 

Fiore et al.'s approach was generalized to encompass the simply-typed lambda calculus 
by Fiore |Fio02L (g)] and Miculan and Scagnetto JMS031 (§)]. In her thesis, Zsido jZsilOl 
Chap. 6] generalized Hirschowitz and Maggesi's approach to simply-typed syntax. The 
present paper presents a variant of Zsido's theorem 6.4.121 — the main result of [ZsilO, Chap. 
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6] — , using the same category-theoretic concept of monads. Both approaches, Hirschowitz 
and Maggesi's and Fiore et al.'s, are connected via an adjunction between the respective 
categories under consideration. This adjunction was established in Zsido thesis [ZsilO, Chaps. 
4 (untyped), 7 (typed)]. 

Some of the mentioned lines of work have been extended to integrate semantic aspects in 
form of reduction relations on terms into initiality results: Hirschowitz and Maggesi [HM07 
characterize the terms of the lambda calculus modulo beta and eta reduction as an initial 
object in some category. In another work jAhrllj . we extend Hirschowitz and Maggesi's 
approach via monads to encompass semantics in form of reduction rules, specified through 
inequations, by considering relative monads |ACU10| over a suitable functor from sets to 
preorders. Fiore and Hur [FHQ7] extended Fiore et al.'s approach to "second-order universal 
algebras". In particular, Hur's PhD thesis [HurlOj is dedicated to this extension. 

1.3. Summary of the Paper. We prove an initiality result for simply-typed syntax which 
provides a category-theoretic iteration operator for translations between languages over 
different sets of sorts. 

We define typed signatures in order to specify the types and terms of simply-typed 
languages. To any such typed signature we associate a category of representations - 
"models" - of this signature. Our main theorem states that this category has an initial 
object, which integrates the types and terms freely generated by the signature. Initiality 
yields an iteration operator which allows to conveniently and economically specify translations 
between languages over different sets of sorts. 

We give two examples of translations via such an iteration operator: firstly, via the 
proposition-as-types paradigm we consider classical and intuitionistic propositional logic as 
simply-typed languages. We present the typed signature for both of these logics and specify 
a double negation translation from classical to intuitionistic logic via the category-theoretic 
iteration operator (Sec. [4|. Secondly, we present the typed signature of the programming 
language PCF, a simply-typed programming language introduced by Plotkin [Plo77| . For this 
particular typed signature, we have formalized the initiality theorem in the proof assistant 
Coq |CoqlO| . Afterwards we have specified two different representations of PCF in the 
untyped lambda calculus ULC, yielding — by initiality — two translations from PCF to 
ULC. The formalization is presented in Sec. [5} In the formalization these translations are 
Coq functions and hence executable. The Coq theory files as well as online documentation 
are available onlinqj 

1.4. Synopsis. In the second section we review the definitions of monads and modules over 
monads with their respective morphisms. We recall some constructions on monads and 
modules, which will be of importance in what follows. 

The third section introduces our notions of arity, typed signature and representations of 
typed signatures. We then prove our main result. 

In the fourth section, we present our main example: we specify the propositions and proofs of 
classical and intuitionistic logic via their respective typed signatures, and define a translation 
from the former to the latter logic via initiality. 



http://math.unice.fr/laboratoire/logiciels 
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The fifth section gives a brief overview of the formalization in the proof assistant Coq of the 
theorem instantiated for the signature of PCF, as well as two translations from PCF to the 
untyped lambda calculus via initiality. 
Some extensions we are working on are explained in the last section. 

2. Monads & Modules 

We state the widely known definition of monad and the less known definition of module 
over a monad. Modules have been used in the context of Initial Semantics by Hirschowitz 
and Maggesi [HM07, HMlOj and Zsido [ZsilOj . Monad morphisms are in fact colax monad 
morphisms, as presented, for instance, by Leinster |Lei04| . 

2.1. Definitions. 

Definition 2.1 (Monad). A monad T over a category C is given by 

• a functor T : C —> C (observe the abuse of notation), 

• a natural transformation w : Idc —> T and 

• a natural transformation jjl : T o T — > T 

such that the following diagrams commute: 

T/i H 

T 2 >T. 

Example 2.2. The functor [_] : Set — > Set which to any set X associates the set of (finite) 
lists over X, is equipped with a structure as monad by defining r/ and /x as "singleton list" 
and flattening, respectively: 

Vx(x) := [x] and 

/J>X \[[-El,l; ■ ■ ■ ; -Cl, mi J) • • • > l^'n,lj • • ■ ; •En,m n \\ ) ■ — [371,1) ■ • • j •Pl,mi > • • • ; ^n,l) ■ • • ; ^n,m n J • 

Remark 2.3 (Kleisli Operation (Monadic Bind)). Given a monad (T,rj,fJ,) on the category 
C, the Kleisli operation with type 

(_y a y.C(a,Tb)^C(Ta,Tb) 

is defined, for any a,b € C and / £ C{a, Tb), by setting 

(/)«,& : = M6 ° Tf . 

Indeed, a monad (T, 77, //) can equivalently be defined as a triple (T, 77, (_)*) with an adapted 
set of axioms. We refer to [Man76] for details. 

Our definition of colax monad morphisms and their transformations is taken from 
Leinster 's book |Lci04 : 

Definition 2.4 (Colax Monad Morphism). Let (T, 77, //) be a monad on the category C and 
(T',rj' , (j!) be a monad on the category V. A colax morphism of monads (C,T) — > (V,T') is 
given by 

• a functor F : C —> T> and 

• a natural transformation 7 : FT —> T'F 
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such that the following diagrams commute: 



FTT 
FT 



-,T 



> T'FT 



-¥ T'T'F 




From now on we will simply say "monad morphism over F" when speaking about a colax 
monad morphism with underlying functor F. We will not use any other kind of monad 
morphism. 

Definition 2.5 (Composition of Monad Morphisms). Suppose given a monad morphism 
as in Def. 2.4 Given a third monad (T" ,rj" , //') on category £ and a monad morphism 
(F', i) : (V, rf, //) -)• (T",n", fj,"), we define the composition of (F, 7) and (F 1 , 7') to be the 
monad morphism given by the pair consisting of the functor F'F and the transformation 

F'-y -y'F 

F'FT UF'T'F —^T"F'F . 

The verification of the necessary commutativity properties is done in the Coq library, cf. 
colax_Monad_Hom_comp. 

Definition 2.6 (Transformation). Given two morphisms of monads 

(F,j),(F>, 7 >):(C,T)-+(V,T') , 

a transformation (F, 7) =>• (F',j') is given by a natural transformation (3 : F —> F' such 
that the following diagram commutes: 



FT 



^T'F 



fiT 



F'T 



T'l. 



-> T'F'. 



Definition 2.7 (2-Category of Monads, |Lei04] ) . We call Mnd co i ax the 2-category an object 
of which is a pair (C, T) of a category C and a monad T on C. A morphism to another object 
(T>,T') is a colax monad morphism (-F, 7) : (C,T) —> (T>,T'). A 2-cell (.F, 7) ^ (F',^') is a 
transformation. 

Notation 2.8. For any category C, we write Idc for the object (C,Id) of Mnd co i ax . 

Example 2.9 (Monadic Syntax, Untyped). Syntax as a monad (using the Kleisli operation 



presented in Rem. 2.3) was presented by Altenkirch and Reus [AR99J: consider the syntax 



of the untyped lambda calculus ULC as given in Sec. |1.1| As mentioned there, the map 
V 1— > ULC(y) is functorial. We equip it with a monad structure: we define rj as variable-as- 
term operation 

Vv (v) := Var(v) E ULC(F) 
and the multiplication \i : ULC o ULC —> ULC as flattening which, given a term of ULC 
with terms of ULC(U) as variables, returns a term of ULC(V). These definitions turn 
(ULC, 77, /j,) into a monad on the category Set. The Kleisli operation associated to this monad 
corresponds to a simultaneous substitution, cf. [AR99]. 



B. AHRENS 



For reasons that are explained in Rem. 2.14| we are particularly interested in monads 
over families of sets (Def. 2.10) and monad morphisms over retyping functors (Def. 2.11). 



Definition 2.10 (Category of Families). Let C be a category and T be a set, i.e. a discrete 
category. We denote by [T, C] the functor category, an object of which is a T-indexed 
family of objects of C. Given two families V and W, a morphism / : V — > W is a family of 
morphisms in C, 

/ : t -► f(t) : V(t) -> W{t) . 
We write Vt := V(t) for objects and morphisms. Given another category T> and a functor 
F : C — > T>, we denote by [T, F] the functor defined on objects and morphisms as 

[T,F}:[T,C}^[T,V], f ^ (t ^ F(f t )) . 

Definition 2.11 (Retyping Functor). Let T and T" be sets and g : T — > T' be a map. Let 
C be a cocomplete category. We define the functor 

5 : [T,C] -► [T',C] , X = t m- X t ^ 5(X) := t' m- [] X t . 

{t I ff (t)=f } 
In particular, for any V £ [T, C] — considered as a functor — we have a natural transformation 

V ^gVog:T ^C 

given pointwise by the morphism Vt — > II{ s |s(s)=g(t)} ^s in the category C. Put differently, 
every map g : T — >■ T' induces an endofunctor g on [T, C] with object map 

50/):=5(V> 5 

and we have a natural transformation 

ctype : Id ^g : [T,C] ^ [T,C] • 

Remark 2.12 (Retyping as an Adjunction). An anonymous referee pointed out to us that 
the retyping functor g associated to g : T — > T" is the left Kan extension operation along g, 
that is, we have an adjunction 



[T,C] 




[T'A 



where g*{W) := W o g. The natural transformation ctype is the unit of this adjunction. 



Given a map g as in Def. 2.11, we interpret the map g : T — > T" as a translation of 
object sorts and the functor g as a "retyping functor" which changes the sorts of contexts 
and terms (and more generally, models of terms) according to the translation of sorts. 

In Ex. |2.13| and Rem. 2.14 we explain how we consider languages as monads and 
translations between languages as monad morphisms over retyping functors, respectively: 

Example 2.13 (Monadic Syntax, Typed). Consider the syntax of the simply-typed lambda 

Similarly to the untyped lambda calculus, the natural 
SLC and \i : SLC o SLC — > SLC are defined as variable-as-term 



calculus as presented in Ex. |1.1 

transformations r\ : Id 

operation and flattening, respectively. These definitions turn (SLC,ry,^) into a monad on 

the category [T S lc , Set] . 
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The previous example explains, how the terms of a language can be organized in a 
monad. Accordingly, a translation between two languages corresponds to a monad morphism: 

Remark 2.14. Suppose we have two monads, a monad P over [U, Set] and a monad Q 

i.e. 



over [V, Set] for sets U and V. We think of P and Q as term monads as in Ex. 2.13 
the monads P and Q denote the terms of some programming language over types U and V, 
respectively. However, what follows is not restricted to such term monads. 

A map -- "translation" - from P to Q now consists, first of all, of a map of types 
g : U — > V. The translation of terms / then should be compatible with the type translation 
g. During the term translation / we have to pass from the category [U, Set] - — where the 
terms of P live — to the category [V, Set], where the terms of Q live. This passing is done 
via the retyping functor g associated to the type translation g. 

Given a set of variables X £ [U, Set] typed over U, a translation of terms with free 
variables in X is specified via a morphism 

fx : g(PX) -> Q(gX) 

in the category [V, Set]. The intuition is that if we have a term t £ P(X) U , we translate at 
first its type u £ U to g(u), yielding a term t' £ g{PX) g t u y The term translation afterwards 
then is a morphism in the category [V, Set] : 

t £ P(X) U C ^ t' £ g(PX) g(u) A f x (t') £ Q(gX) g (u) , 

where instead of "fx" one should read "the component of fx corresponding to <?(«)"• 

Putting this in category-theoretic terms, the family {fx)x&\u,S<&\ °f morphisms forms 
a colax monad morphism / over the retyping functor associated to g, provided that / 
is compatible with the monadic structure on P and Q, i.e. with variables-as-terms and 
flattening operations. 

The notion of module over a monad generalizes monadic substitution (cf. [HM07J): 

Definition 2.15 (Module over a Monad). Given a monad T over category C and a category 
T>, a module over T with codomain D (or T -module towards T>) is a colax monad morphism 
(M, 7) : (C,T) — > (T>,Idx>) from T to the identity monad on T>. Given T-modules M and N, 
a morphism of modules from M to N is a transformation from M to N. We call 

Mod(T,V) := Mnd colax ((C,T),(P,Id)) 

the category of T-modules towards T>. 

Remark 2.16. By unfolding the preceding definition and simplifying, we obtain that a 
T-module towards D is a functor M : C — ?► T> together with a natural transformation 
a : MT — > M such that the following diagrams commute: 

MTT -^^ MT 
MT ► M, MT > M. 
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A morphism of T-modules from (M, a) to (M', a') then is given by a natural transformation 
(3 : M =$■ M' such that the following diagram commutes: 

8T 
MT — — > Af' T 



M ► Af'. 

Remark 2.17 (Kleisli Operation for Modules). Let T be a monad on a category C and 



(Af, a) be a T-module with codomain category T>. Similarly to monads (cf. Rem. 2.3), a 
Kleisli operation for modules, with type 

U* a ,b-C(a,Tb)^V(Ma,Mb) 

is defined by setting, for any a,b £ C and / £ C(a, Tb), 

(f)ly.= a b oMf . 

Modules over monads can equivalently be defined in terms of this Kleisli operation, cf. 
JJZTT] . 

We anticipate the constructions of the next section by giving some examples of modules 
and module morphisms: 



Example 2.18 (Tautological Module, Ex. 2.9 cont.). Any monad T on a category C can be 



considered as a module over itself, the tautological module. In particular, the monad of the 



untyped lambda calculus ULC (cf. Ex. 2.9) is a ULC-module with codomain Set. 

Example 2.19. The map 

ULC' : V h+ ULC(U') , 
with V := V + {*}, inherits — from the tautological module ULC — the structure of a 
ULC-module, which we call the derived module of the module ULC. Also, the map 

ULC x ULC : V H- ULC(U) x ULC(U) 

inherits a ULC-module structure. 

The constructors of the untyped lambda calculus are, accordingly, morphisms of modules: 

Example 2.20 (Ex. |2.19 cont.). The natural transformation 



V ■-► App v : ULC(U) x ULC(U) -»■ ULC(U) 

verifies the diagram of module morphisms and is hence a morphism of ULC-modules from 
ULC x ULC to ULC. The natural transformation 

V H- Absv : ULC(U') -»• ULC(U) 

is a morphism of ULC-modules from ULC' to ULC. 

The meaning of the commutative diagrams for module morphisms is best explained 



in terms of the module Kleisli operation, the module substitution (cf. Def. 2.17); for this 
equivalent definition, the notion of module morphism captures the distributivity property of 
substitution with respect to term constructors. A detailed explanation is given by Ahrens 
and Zsido [A"ZTT] . 
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Example 2.21. Given any t E Tslcj the functor 

SLC 4 : V h+ SLC(V)t 

is canonically equipped with a module structure, where the natural transformation 

a : SLCj o SLC -* SLC t 

is simply the component in the fibre t of the multiplication /i of the monad SLC. This is an 
example of a module whose underlying functor is not an endofunctor. 

2.2. Constructions on monads and modules. We present some instances of modules 
which we will use in the next section. They were previously defined in Zsido's thesis [ZsilO 
and works of Hirschowitz and Maggesi [HM07, HM10 . 

Definition 2.22 (Tautological Module). Given the monad (C, T), we call tautological module 
the module (T,[Xt) '■ (C,T) -> (C,Id). 

Definition 2.23 (Constant and terminal module). Given a monad (C,T) and a category T> 
with an object d £ T>, the constant functor Fj : C —> T> mapping any object of C to d 6 T> 
and any morphism to the identity on d yields a module 

(F d ,id) : (C,T) ^ (V,ld) ■ 

In particular, if D has a terminal object lx>, then the constant module (i^i^id) is terminal 
inMod(T,£>). 

Given a morphism of monads from T to T', and T'-module gives rise to a T-module: 

Definition 2.24 (Pullback module). Let (C,T) and (T>,T') be monads over C and T>, 
respectively. Given a morphism of monads (F, 7) : (C,T) —> (T>,T') and a T'-module (M, a) 
with codomain category £, we call pullback of M along (F, 7) the composed T'-module 

(F, 1 r(M,a):=(M,a)o(F, 1 ) . 

The pullback operation extends to morphisms of modules and is functorial. 

Definition 2.25 (Induced module morphism). With the same notation as in the previous 
example, the monad morphism (i 7 , 7) induces a morphism of T-modules — which we call 7 
as well — 

7 : (F, id) o (T,^ T ) ^ (F, 7 r(T', MT ,) 

as in 

(C,T) 
{T,v T )/ \CFVr) 



(C,Id) J> (V,T') 

(P, Id). 

Indeed, the natural transformation 7 verifies the corresponding diagram, as a consequence 
of the diagrams for monad morphisms it verifies. 
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Definition 2.26 (Products). Suppose the category V is equipped with a product. Given any 
monad (C, T), the product of V lifts to a product on the category Mod(T, V) of T-modules 
with codomain D. 



2.3. Modules on Typed Sets. When considering constructors that are indexed by object 
types, such as App and Abs, we will also consider monads and modules over categories of 
typed sets where the set of types is pointed (multiple times) : 

Definition 2.27 (Pointed index sets). Given a category C, a set T and a natural number 
n, we denote by [T, C] n the category with, as objects, diagrams of the form 

K rr K n 

n —> 1 — > L , 

written (V, ti,..., t n ) with ti := t(i). A morphism h to another such (W, t) with the same 
pointing map t is given by a morphism h : V — > W in [T, C] . Any functor F : [T, C] —> [T, T>] 
extends to F n : [T,C] n — > [T,V] n via 

F n (V,h,...,t n ) :=(FV,h,...,t n ) . 

Remark 2.28. The category [T, C] n consists of T n copies of [T, C], which do not interact. 
Due to the "markers" (ti, ■ ■ ■ , t n ) we can act differently on each copy, cf. e.g. Defs. 2.34|and 



2.37 The reason why we consider categories of this form is explained in Rem. 3.17 



We generalize retyping functors to such categories with pointed indexing sets. When 
changing types according to a map of types g : T — >■ U, the markers must be adapted as well: 

Definition 2.29. Given a map of sets g : T — > U, by postcomposing the pointing map with 
g, the retyping functor generalizes to the functor 

g(n) : [T,C]n -»• [U,C] n , (V,t) H- (gV,9*(t)) , 
where g*(t) = t o g : n — > U. 

Finally there is also a category where families of sets over different indexing sets are 
mixed together: 

Definition 2.30. Given a category C, we denote by TC the category where an object is a 
pair (T, V) of a set T and a family V £ [T, C] of objects of C indexed by T. A morphism to 
another such (T", W) is given by a map g : T — >• T' and a morphism V — > W o g in [T, C], 
that is, family of morphisms, indexed by T, 

hf.V t ^ W g{t) , 

in the category C. 

Let C have an initial object, denoted by Oc- Given n £ N, we call h = (n, k h- ^ Oc) the 
element TC that associates to any 1 < k < n the initial object of C. We call TC n the slice 
category h \. TC. An object of this category consists of an object (T,V) £ TC whose indexing 
set "of types" T is pointed n times, written (T, V,t\, . . . ,t n ). We call TU n : TC n — > Set the 
forgetful functor associating to any pointed family (T, V, t\, . . . , t n ) the indexing set T, in 
particular for the case that C is the category Set of sets. 

Remark 2.31 (Picking out Sorts). Let 1 : TC n —> Set denote the constant functor which 
maps objects to the terminal object ls e t of the category Set. A natural transformation 
r : 1 — > TU n associates to any object (T, V, t) of the category TC n an element of T. 
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Notation 2.32. Given a natural transformation r : 1 — > TU n as in Rem. 2.31 we write 

r(T,V,t) := r(T,V,t)(*) e T , 
i.e. we omit the argument * G ls et of the singleton set. 

2.3.1. Derivation. Roughly speaking, a binding constructor makes free variables disappear. 
Its input are hence terms "with (one or more) additional free variables" compared to the 
output, i.e. terms in an extended context. Derivation formalizes context extension. Let T 
be a set and u G T an element of T. We define D{u) to be the object of [T, Set] such that 

D(u)(u) = {*} and D(u)(t) = for t ^ u . 

We enrich the object V of [T, Set] with respect to u by setting 

V* u :=V + D{u) , 

that is, we add a fresh variable of type u to the context V. This yields a monad (_)*" on 
[T, Set]. Moreover, given any monad P on [T, Set], we equip the functor V *-> V* u with 
a structure of an endomorphism on P: on a typed set V its natural transformation 7 is 
defined as the coproduct map 

lv := [P(inl),x M- 7?(inr(*))] : (PV)* U -»■ P(V* U ) , (2.1) 

where [inl, inr] = id : V* u — > V* 



—Mi 



Remark 2.33. In case the monad P denotes terms over sets of free variables as in Ex. 2.9 



the map 71/ defined in Eq. (2.1 ) sends a term t G PV in a context V to its image in an 
extended context V* u , and the additional variable of type u to the term (in context V* u ) 
consisting of just this variable. 

More generally, we derive with respect to a natural transformation 

t- : 1 => TU n : TSet n -► Set . 
Such r associates to any V £ TSet n with a set of types T an object type t G T. 

Definition 2.34 (Derived Module). Let r : 1 — >■ Tf7„, be a natural transformation. Given a 
set T and a monad P on [T, Set] n , the functor (_)* T : V !->■ T/* 1 "*-^) is given the structure of 



a morphism of monads as in Eq. (2.1). Given any P-module M, we call derivation of M 



with respect to r the module M T := M o (_)* r . 

Remark 2.35. In the preceding definition the natural transformation r : 1 — > TU n supplies 
more data than necessary, since we only evaluate it on families of sets indexed by the 
fixed set T. However, in the next section we will derive different modules — each defined 
on a category [T, Set] n with varying sets T — with respect to one and the same natural 
transformation r. 



Example 2.36 (Ex. 2.13 continued). We consider SLC (cf. Ex. 2.13) as the tautological 
module over itself. Given any element s G TslCj the derived module with respect to s, 

SLC S : V h-> SLC(T/* S ) , 

denotes the (typed) set of terms of SLC with variables in an extended context V* s . 
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2.3.2. Fibres. Given a set family V indexed by a (nonempty) set T, we sometimes need to 
pick the set of elements "of type u E T", that is, the set V(u) associated to u E T. Given a 
monad P on a category C and a P-module M towards [T, Set] , we define the fibre module of 
M with respect to u E T to be the module which associates the fibre M{c){u) to any object 
c €i C. This construction is expressed via postcomposition with a particular module: 
we define the fibre with respect to u E T to be the monad morphism 

(U(u),id):([T,Set],Id)^(Set,Id) 

over the functor V *-> V(u). Postcomposition of the module M with this module then 
precisely yields the fibre module [M] u of M with respect to u E T. 

Analogously to derivation we define the fibre more generally with respect to a natural 
transformation: 



Definition 2.37 (Fibre Module). Let the natural transformation r be as in Def. 2.34 We 
call fibre with respect to r the monad morphism 

(_) T : V ^ V(r v ) : ([T, Set]„,Id) -)■ (Set, Id) 

over the functor V *-> V Ty . Given a module M towards [T, Set] n (over some monad P), we 
call the fibre module of M with respect to r the module [M] T := (_) T ° M. 



Example 2.38 (Ex. 2.13 continued). We consider SLC as the tautological module over 
itself. Given any element t E TgLC; the fibre module with respect to t, 

[SLC] 4 : V ^ SLC(V) t , 

associates to any context V the set of simply-typed lambda terms of type t with variables 
in V. 

3. Signatures k, Representations 

A simply-typed language is given by a pair (S, E) of signatures: an algebraic signature S 
specifying the types of the language, and a term-signature E which specifies terms that 
are typed over the set of object types associated to S. We call typed signature a pair (S, E) 
consisting of an algebraic signature S and a term-signature E over S. 

3.1. Signatures for Types. Algebraic signatures were already considered by Birkhoff 
[Bir35]- An example of (untyped) algebraic signature is given in the introduction. We review 
the general definition: 

Definition 3.1 (Algebraic Signature). An algebraic signature S is a family of natural 
numbers, i.e. a set J$ and a map (carrying the same name as the signature) S : Js — >■ N. 
For j E Js and n E N, we also write j : n instead of j *— > n. An element of J resp. its image 
under S is called an arity of S. 

To any algebraic signature we associate a category of representations. We call represen- 
tation of S any set U equipped with operations according to the signature S. A morphism of 
representations is a map between the underlying sets that is compatible with the operations 
on either side in a suitable sense. Representations and their morphisms form a category. We 
give the formal definitions: 
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Definition 3.2 (Representation of an Algebraic Signature). A representation R of an 
algebraic signature S is given by 

• a set X and 

• for each j G Jg, an operation j : X ^' — > X. 

In the following, given a representation R, we write R also for its underlying set. 



Example 3.3 (Algebraic Signature of Ex. 2.13). The algebraic signature of the types of 
the simply-typed lambda calculus is given by 

Sslc := {* : , H) : 2} . 

Example 3.4. The language PCF |Plo771 IHO OO is a simply-typed lambda calculus with a 
fixed point operator and arithmetic constants. Let J := {l, o, (=>)}• The signature of the 
types of PCF is given by the arities 

Srcf := {i : , : , (=►) : 2} . 

A representation T of Spcf is given by a set T and three operations, 

l T : T , o T : T , (^) T : T x T -> T . 

Definition 3.5 (Morphisms of Type-Representations). Given two representations T and 
U of the algebraic signature (J, S), a morphism from T to U is a map / : T — > U on the 
underlying sets such that for any arity j £ J with S(j) = n we have 

Representations of S and their morphisms form a category. 



Example 3.6 (Ex. 3.4 continued). Given two representations T and U of SpcF) a morphism 
from T to U is a map / : T — > U such that, for any s,t £ T, 

f(o T ) = o u and 

f( S ^ T t) = f{s) ^ u f(t) • 

Next we prove that for any algebraic signature S, its category of representations has an 
initial object, whose underlying set S consists of the types freely generated by the signature. 
In particular, by initiality we obtain, for any representation R of S in a set U, a map from 
5 to U. 

Lemma 3.7. Let (J,S) (or S for short) be an algebraic signature. The category of repre- 
sentations of S has an initial object S. 

Proof. We cut the proof into small steps: 

• In a type-theoretic setting the set — also called S -- which underlies the initial rep- 
resentation S is defined as an inductive set with a family of constructors indexed by 

Js: 

S ::= C : Vj G J, S S{j) -*• S . 

That is, for each arity j G J, we have a constructor Cj : S ^' — > S. 
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For each arity j G J, we must specify an operation j s : S s ^> — > S. We set 

j S := Cj : S s{j) -»■ S , 

that is, the representation j s of an arity n = S(j) is given precisely by its corresponding 

constructor. 

Given any representation R of S, we specify a map i# : S — >■ i? between the underlying 

sets by structural recursion: 

i R :S^R , iniCjia)) := j R ((i R ) S(j \a)) , 

for a G S s v>. That is, the image of a constructor function Cj maps recursively on the 
image of the corresponding representation j R of i?. 

We must prove that in is a morphism of representations, that is, that for any j € J with 
S(j) = n, 

iR°f =J R °{in) n ■ 
Replacing j s by its definition yields that this equation is precisely the specification of ir, 
see above. 



• It is the diagram of Def. 3.5 which ensures unicity of in; since any morphism of repre- 
sentations i! : S —> R must make it commute, one can show by structural induction that 
i' = ir. More precisely: 

i'(Cj(a)) = i'(Cj(ai, . . . ,as(j))) = j R (i'(a x ), . . .,i'(a s{j) )) * "'* = R '"' 

= 3 R (iR(ai), ■ • .,i R (a s{j) )) = i R (Cj(a)) . 

n 

Example 3.8 (Ex. |3.4| continued). The set Tpcf underlying the initial representation of 
the algebraic signature Spcf is given by 

Tpcf ::= i I o Tpcf => ?pcf • 

For any other representation R of Spcf the initial morphism ir : Tpcf — > R is given by the 
clauses 

i R {i) = i R 
i R {o) = o R 
in{s =>t) = i R {s) ^ R i R {t) . 

3.2. Signatures for Terms. We consider the simply-typed lambda calculus as specified 
in Ex. |1.1| Its terms could be specified by the signature: 

{abs Sjt := [([*],<)] -»■ (s-^t) , app Sif := [([],s-w t),([],s)] -»■ t} s ,teT SLC • (3-1) 

whose meaning is as follows: an arrow — > separates domain and codomain data. The domain 
data specifies the input type; it consists of a list, where each list item corresponds to one 
argument. Each list item is itself a pair of a list — specifying the type of the variables bound 
in the corresponding argument — and an object type — the type of the argument. The 
codomain data specifies the output type of the associated constructor. This viewpoint is 
sufficient when considering models of SLC over the set TgLc of types of SLC. Indeed, Zsido 
jZsilO] defines signatures for terms precisely as in the above example. 
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If, however, we want to consider models of SLC over varying sets of types, then the above 
point of view, with its tight dependence on the initial set of types Tslc, is not adequate any 
more. Instead, we would like to specify the signature of SLC like this: 

{abs:=[([l],2)]-»(l~>2) , app := [([], 1 -w 2), ([], 1)] -)• 2} . (3.2) 

What is the intended meaning of such a signature? For any representation T of 5slc ; the 
variables 1 and 2 range over elements of T. In this way the number of abstractions and 
applications depends on the representation T of Sslc: intuitively, a model of the above 
signature of Eq. ( 3.2 ) over a representation T of Tslc has T 2 abstractions and T 2 applications 



— one for each pair of elements of T. As an example, for the final representation of Sslc in 
the singleton set, one obtains only one abstraction and one application morphism. 

In summary, to account for type variables in an arity, we consider arities of higher degree, 
where the degree of an arity denotes the number of (distinct) type variables. For instance, 



the arities abs and app of Eq. (3.2) are of degree 2. 



3.2.1. Term Signatures, syntactically. In this section we give a syntactic characterization of 



arities over a fixed algebraic signature S for types as in Def. 3.1. 



Definition 3.9 (Type of Degree n). For n > 1, we call types of S of degree re the elements 
of the set S(n) of types associated to the signature S with free variables in the set {1, . . . , n}. 
We set 5(0) := 5. Formally, the set 5(re) may be obtained as the initial representation of 
the signature 5 enriched by re miliary arities. 

Types of degree n are used to form classic arities of degree re: 

Definition 3.10 (Classic Arity of Degree n). A classic arity for terms over the signature 5 
for types of degree re is of the form 

[{[tl,l, ■ ■ ■ ,ti, mi ],ti), ■ ■ ■ ,{[tk,l, ■ ■ ■ ,tk,m k ],t k )] —?• to , (3.3) 

where tij, ti G S(n). More formally, a classic arity of degree re over 5 is a pair consisting of 
an element to £ S(n) and a list of pairs, where each pair itself consists of a list [t^i, . . . , £j, m J 
of elements of 5(re) and an element ti of S(n). 



A classic arity of the form given in Eq. (3.3) denotes a constructor — or a family of 



constructors, for n > 1 — whose output type is to, and whose k inputs are terms of type ti, 
respectively, in each of which variables of type according to the list [ti t i, . . . , £j, m J are bound 
by the constructor. 



Remark 3.11. For an arity as given in Eq. |3.3| we also write 

[e^'-'^k x ... x [e^- tk ' m % k -► [ej t0 . (3.4) 

Examples of arities — besides the example of Eq. (3.2) — are also given in Sec. El 



Remark 3.12 (Implicit Degree). Any arity of degree re G N as in Def. 3.10| can also be 
considered as an arity of degree re + 1. We denote by S(u) the set of types associated to the 
type signature 5 with free variables in N. Then any arity of degree re G N can be considered 
as an arity built over S(u). Conversely, any arity built over 5(w) only contains a finite set 
of free variables in N, and can thus be considered to be an arity of degree re for some re G N. 
In particular, by suitable renaming of free variables, there is a minimal degree for any arity 



built over S(u). We can thus omit the degree — e.g., the lower inner index re in Disp. 3.4 
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— , and specify any arity as an arity over S(u), if we really want to consider this arity to be 
of minimal degree. Otherwise we must specify the degree explicitly. 



3.2.2. Term Signatures, semantically. We now attach a meaning to the purely syntactically 
defined arities of Sec. |3.2.1 More precisely, we define arities as pairs of functors over suitable 



categories. Afterwards we restrict ourselves to a specific class of functors, yielding arities 
which are in one-to-one correspondence to — and thus can be compactly specified via — 



the syntactically defined classic arities of Sec. |3.2.1| Accordingly, we call the restricted class 
of arities also classic arities. 



At first, in Rem. 3.13 we present an alternative characterization of algebraic arities. 
This alternative point of view is then adapted to allow for the specification of arities for 
terms. 

Remark 3.13. We reformulate the definition of algebraic arities and their representations: 
an algebraic arity j : n associates, to any set X, the set dom(j, X) := X n , the domain set. 
A representation R of this arity j in a set X then is given by a map j R : X n — > X. More 
formally, the domain set is given via a functor dom(j) : Set — >• Set which associates to any 
set X the set X n . Similarly, we might also speak of a codomain functor for any arity, which 
- for algebraic arities — is given by the identity functor. A representation R of j in a set X 
then is given by a morphism 

j R : dom(j)(X) -)■ cod(j)(X) . 

We take this perspective in order to define arities and signatures for terms: given an 
algebraic signature S for types, an arity a of degree n for terms over S is a pair of functors 
(dom(a),cod(a)) associating two P-modules dom(a)(P) and cod(a)(P), each of degree n, 
to any suitable monad P. A suitable monad here is a monad P on some category [T, Set] 
where the set T is equipped with a representation of S. We call such a monad an S-monad. 
A representation R of a in an 5-monad P is a module morphism 

a R : dom(a)(P) ->■ cod(a)(P) . 

As we have seen in Ex. |1.1| constructors can in fact be families of constructors indexed n 
times by object type variables. We specify such a constructor via an arity of higher degree, 
where the degree n£Nof the arity corresponds to the number of object type variables of 
its associated constructor. 

For any signature for types S, we define a category of monads on typed sets where the 
indexing set is equipped with a representation of S: 

Definition 3.14 (5— Monad). Given an algebraic signature S, the 2-category S-Mnd of 
S -monads is defined as the 2-category whose objects are pairs (T, P) of a representation T 
of S and a monad P : [T, Set] — > [T, Set]. A morphism from (T, P) to (T", P') is a pair (g, f) 
of a morphism of .^-representations g : T — >■ T" and a monad morphism / : P — >■ P' over the 
retyping functor g. Transformations are the transformations of Mnd co i ax . 

Given n E N, we write S , -Mnd n for the 2-category whose objects are pairs (T,P) of a 
representation T of S and a monad P over [T, Set] n . A morphism from (T,P) to (T',P') 
is a pair (g, f) of a morphism of /S-representations g : T — >• T" and a monad morphism 



/ : P — > P' over the retyping functor g(n) (cf. Def. 2.29). 



We call Is n '■ <5-Mnd n — > Mnd co i ax the functor which forgets the representation of S. 
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We define a "large category of modules" in which modules over different S-monads are 
mixed together: 

Definition 3.15 (Large Category of Modules). Given a natural number n G N, an algebraic 
signature S and a category V, we call LMod„(S, V) the colax comma category Is >n I Idx>- 
An object of this category is a pair (P, M) of a monad P G S-Mnd n and a P-module with 
codomain T>. A morphism to another such (Q, N) is a pair (/, h) of an S-monad morphism 
/ : P — > Q in S-Mnd„ and a transformation h : M -)• /*iV: 




ATo/ 

Definition 3.16 (Half-Arity over 5 (of degree n)). Given an algebraic signature S and 
ji £ N, we call half-arity over S of degree n a functor 

a:S-Mnd^ LMod n (S,Set) . 



Taking into account Rem. 3.17 this means that a half-arity of degree n associates to any 
S'-monad R — with representation of 5 in a set T - - a family of i?-modules indexed n 
times by T. 

Remark 3.17 (Module on pointed Category = Family of Modules). Let C and T> be 
categories, let T be a set and R be a monad on [T, C]. Suppose n £ N, and let V be 
a category. Then modules over R n with codomain T> correspond precisely to families of 
i?-modules indexed by T n with codomain T> by (un) currying. 

More precisely, let M be an i? n -module. Given t e T n , we define an i?-module Mt by 

Af t (c):=M(c,t) . 

Module substitution for Mt is given, for / G [T, C](c, i?d), by 

? Mt (/):=^ M (/) 



where we use that we also have / G [T, C]„((c, t), (Rd,t)) according to Def. 2.27 Going the 
other way round, given a family (Mt)ter™) we define the i? n -module M by 

M(c,t) :=M t (c) . 

Given a morphism / £ [T,C] n ((c, t), (Rd,t)), we also have / G [T, C](c, i?d) and define 

? A/ (/):=? M t(/) 

We recall that morphisms in [T, C] n are only between families with the same points t. 

The remark extends to morphisms of modules; indeed, a morphism of modules a : M — >■ 
iV on pointed categories corresponds to a family of morphisms (at '■ Mt —> A / t)teT n between 
the associated families of modules. 

We restrict our attention to half-arities which correspond, in a sense made precise below, 



to the syntactically defined arities of Def. 3.10 The basic brick is the tautological module of 
degree n: 

Definition 3.18. Given n G N, any monad R on the category [T, Set] induces a monad R n 
on [T, Set] n with object map (V, t\, . . . , t n ) i->- (RV, ti, ■ . ■ , t n ). To any S'-monad R we hence 
associate the tautological module of R n , 

Q n (R) := (Rn,Rn) G LMod n (S, [T,Set] n ) . 
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This construction extends to a functor. 

Let us consider the signature S'slc of types of SLC. In the syntactically defined arities 



(cf. Eq. 3.2) we write terms like 1 ~-* 2. We now give meaning to such a term: intuitively, the 
term 1 ~» 2 should associate, to a family (T, V, £i, £2) with V a T-indexed family of sets and 
t\ , ti G T, the element £1 ~~> £2 • The set T should thus come equipped with a representation 
of S'slc m order to interpret the arrow ~~». 

More formally, such a term is interpreted by a natural transformation over a specific 
category, whose objects are triples of a representation T of Sslc> a f amn y °f se ts indexed by 
(the set) T and "markers" (£i,£ 2 ) G T 2 . 

We go back to considering an arbitrary signature S for types. The following are the 
corresponding basic categories of interest: 

Definition 3.19 (SSet n ). We define the category SSet n to be the category an object of 
which is a triple (T, V, t) where T is a representation of S, the object V G [T, Set] is a 
T-indexed family of sets and t is a vector of elements of T of length n. We denote by 
SU n : SSet n — >■ Set the functor mapping an object (T, V, t) to the underlying set T. We 
have a forgetful functor SSet n — > TSet n which forgets the representation structure. On the 
other hand, any representation T of S in a set T gives rise to a functor [T, Set] n — >■ SSetn, 
which "attaches" the representation structure. 

The meaning of a term s G S(n) as a natural transformation 

s : 1 =^ SC/ n : SSet n -)■ Set 
is now given by recursion on the structure of s: 

Definition 3.20 (Canonical Natural Transformation). Let s G S(n) be a type of degree n. 
Then s denotes a natural transformation 

s:l=> SU n : SSet n -)■ Set 

defined recursively on the structure of s as follows: for s = a(a\, . . . ,a,k) the image of a 
constructor a G S we set 

s(T J V,t) = a(oi(T,^t),...,a fc (T,y,t)) 

and for s = m with 1 < m < n we define 

fl(r,V,t) =t(m) . 

We call a natural transformation of the form s G S(n) canonical. 

Canonical natural transformations are used to build classic half-arities; they indicate 
context extension (derivation) and selection of specific object types (fibre): 

Definition 3.21 (Classic Half-Arity over S). We give some examples of half-arities over 
a signature S and associate short names to them. At the same time the following clauses 
define an inductive set of classic half-arities, to which we will restrict our attention. 
• The constant functor 

* : R^ 1 , 

where 1 denotes the terminal module, is a classic half-arity 
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• For any canonical natural transformation r : 1 — > TU n , the point-wise fibre module with 
respect to r of the tautological module @ n : R i— > (R n , R n ) is a classic half-arity of degree 

ft 

[9„] T : S-Mnd -»■ LMod n (S, Set) , fl h+ [i? n ] r . 

• Given any (classic) half-arity M : S-Mnd —> LMod n (5', Set) of degree n and a canonical 
natural transformation r : 1 — > TU n , the point- wise derivation of M with respect to r is a 
(classic) half-arity of degree re, 

M T : S-Mnd -»■ LMod n (S, Set) , i? ^ (M{R)) T . 

Here (M(R)) really means derivation of the module, i.e. derivation in the second compo- 
nent oiM(R). 

• For a half-arity M, let Mi : R h-> inM(R) denote the i-th projection. Given two (classic) 
half-arities M and iV of degree re, which coincide pointwise on the first component, i.e. 
such that Mi = N\. Then their product M x N is again a (classic) half-arity of degree re. 
Here the product is really the pointwise product in the second component, i.e. 

M x N : R^ (M 1 (R),M 2 (R) x N 2 (R)) . 

Remark 3.22. Classic half-arities correspond precisely to our needs: products are needed 
when a constructor takes multiple arguments, and a derived module corresponds to an 
argument in which a variable is to be bound. The fibre restricts the terms under consideration 
to a specific object type. 

Definition 3.23 (Weighted Set). A weighted set J is a set J together with a map d : J — > N. 

An arity of degree re G N for terms over an algebraic signature S is a pair of functors - 
called half-arities, since two of them constitute an arity — from S'-monads to modules in 
LMod n (S', Set). The first component dom(a) of such an arity a = (dom(a),cod(a)) denotes 
the domain, or arguments, of a constructor, whereas the second, cod(a), determines the 
output type. The degree re of an arity denotes the number of object type arguments of its 



associated constructor. As an example, the arities of Abs and App of Ex. 2.13 are of degree 



2 (cf. Ex. 3.26). 



Definition 3.24 (Term-Arity, Signature over S). A classic arity a over S of degree n is a 
pair 

a = (dom(a), cod(a)) 
of half-arities over S of degree re such that 
• dom(a) is classic and 



• cod(a) is of the form [0 n ] r for some natural transformation r as in Def. 3.21 
We write dom(a) — > cod(a) for the arity a, and 

dom(a,R) := dom(a)(i?) 
(and similar for the codomain functor cod). Any classic arity is thus of the form given in Eq. 



3.3 Given a weighted set (J,d), a term-signature £ over S indexed by (J, d) is a J- family £ 



of classic arities over S, the arity S(j) being of degree d(j) for any j £ J. 

Definition 3.25 (Typed Signature). A typed signature is a pair (S, E) consisting of an 
algebraic signature S and a term-signature X (indexed by some weighted set) over S. 
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Example 3.26 (SLC, Ex. 2. 13| co ntinued). The terms of the simply typed lambda calculus 
over the type signature of Ex. |3.3| is given by the classic (cf. Def. 3.21) arities 

abs : [e 1 ^ -)• [0 2 ] lw2 , 

app : [9] i^ 2 x [0]i -»> [9] 2 , 

both of which are of degree 2 — we use the convention of 3.12| The outer lower index and 



the exponent are to be interpreted as variables, ranging over object types. They indicate 



the fibre (cf. Def. 2.37) and derivation (cf. Def. 2.34), respectively, in the special case where 



the corresponding natural transformation is given by a natural number as in Def. 3.20 



Those two arities can in fact be considered over any algebraic signature S with an arrow 



constructor, in particular over the signature Spcf (cf- Ex. 3.28) 



Remark 3.27. Note that in Ex. 3.26 we do not need to explicitly specify an arity for the 



Var term constructor in order to obtain the simply-typed lambda calculus as presented in 
Ex. |1.1| Indeed, in our approach every model is by definition (cf. Def. 3.29) equipped with a 
corresponding operation — the unit of the underlying monad. 



Example 3.28 (Ex. 3.8 continued). We continue considering PCF. The signature Spcf for 
its types is given in Ex. |3.4| The term-signature of PCF is given by an arity for abstraction 
and an arity for application, each of degree 2, an arity (of degree 1) for the fixed point 
operator, and one arity of degree for each logic and arithmetic constant — some of which 
we omit: 



[eh 



abs 


[9 1 ] 


2 -»• [6]i=> 


app 


[9] 1^2 X [9]! 


Fix 


[9W -»« [9]i 


Z 


* — > 


[0]. 


S 


* — > 


[&Ui 


ond t 


* — > 


|9Jo=H=H= 


T,F 


* — > 


[®]o 



Our presentation of PCF is inspired by Hyland and Ong's |HO00| . who -- similarly to 
Plotkin [Plo77] -— consider, e.g., the successor as a constant of arrow type. As an alternative, 
one might consider the successor as a constructor expecting a term of type i as argument, 
yielding a term of type i. For our purpose, those two points of view are equivalent. 



3.3. Representations. A representation of a typed signature (S, E) is a pair (U, P) given 
by a representation U of the signature S in a set — also called U — and a representation P 
of the term-signature E in a monad — also called P — over the category [U, Set] . Such a 
representation of E consists of a morphism in a suitable category for each arity of E — the 
analogue of the maps Z and S from the introductory example: 



Definition 3.29 (Representation of a Signature over S). 
A representation R of (S, E) is given by 
• an 5-monad P and 



Let (S, E) be a typed signature. 
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• for each arity a of E, a morphism (in the large category of modules) 

a : dom(a, P) — > cod(a, P) , 

such that TT\{a R ) = idp. 
In the following we also write R for the S-monad underlying the representation R. 

Suppose we have two such representations P and R of (S, E). What is a suitable 
definition of morphism from the first to the latter? Such a morphism is given by a pair 
consisting of a morphism of the underlying type representations g : S p — > S , and a monad 
morphism over the retyping functor associated to (the carrier of) g between the monads 
underlying P and R. In this way the monad morphism maps elements "of type" t £ S to 
elements "of type" g(t) £ S , and is thus compatible with the translation g of types. Note 
that these definitions are already integrated into the definition of S'-monads. The missing 
piece is that the monad morphism should be compatible with the term representations of P 
and R: 

Definition 3.30 (Morphism of Representations). Given representations P and R of a typed 
signature (S, E), a morphism of representations / : P — > R is given by a morphism of 
S'-monads / : P — > R, such that for any arity a of S the following diagram of module 
morphisms commutes: 



dom(a,-P) 

dom(ct,/) 

dom(a, R) 



-> cod(a,P) 
cod(a,/) 

-» cod(a, R). 



Remark 3.31. Taking a 2-categoric perspective, the above diagram reads as an equality of 
2-cells 




-cod(a,P) ► Ids et 




/* cod(a,R) 




where we write df and cf instead of dom(a, /) and cod(a, /), respectively. 

The diagram of Def. 3.30 lives in the category LMod n (S', Set) — where n is the degree 
of a — where objects are pairs (P, M) of a S'-monad P of S-Mnd^ and a module M over 
P. The above 2-cells are morphisms in the category Mod(P n ,Set), obtained by taking the 
second projection of the diagram of Def. |3.30| Note that for easier reading, we leave out the 
projection function and thus write dom(a,R) for the i? n -module of dom(a, R), i.e. for its 
second component, and similar elsewhere. 

Representations of (S, S) and their morphisms form a category. 

Remark 3.32. We obtain Zsido's category of representations jZsilO[ Chap. 6] by restricting 
ourselves to representations of (S, E) whose type representation is the initial one. More, 
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precisely, a signature (S, E) maps to a signature, say, Z(S, S) over the initial set of sorts S in 
the sense of Zsido |ZsilO| Chap. 6], obtained by unbundling each arity of higher degree into 



a family of arities of degree 0. For instance, the signature of Ex. 3.26| maps to the signature 

(App M : [()« ~* t, Qa] — ► t , Abs Sji : [(s)t\ — ► s ^ *) s , te r SLC • 
Representations of this latter signature in Zsido's sense then are in one-to-one correspondence 



to representations of the signature of Ex. 3.26 over the initial representation S of sorts, via 



the equivalence explained in Rem. 3.17 



3.4. Initiality. 

Theorem 3.33. For any typed signature (S, £), the category of representations of (£",£) 
has an initial object. 

Proof. The proof consists of the following steps: 

(1) find the initial representation S of the type signature S; 

(2) define the monad STS of terms specified by £ on the category [S, Set]; 

(3) equip the 5-monad STS with a representation structure of S, yielding a representation 
Sof (£,£); 

(4) for any representation R of (<S, £), give a morphism of representations in : £ — > R; 

(5) prove unicity of ir. 

We go through these points: 



1) We have already established (cf. Lem. 3.7) that there is an initial representation of sorts, 



which we call S. Its underlying set is called S as well. 
(2) The term monad we associate to (S, £) is the same as Zsido's [ZsilQj Chap. 6] in the 



sense of Rem. 3.32 i.e. it is the term monad associated to Z(S, £). The construction 
of this monad in a set-theoretic setting is described in Zsido's thesis. We will give its 
definition in a type-theoretic setting. 

In the following the natural transformations Tj are in fact vectors of multiple transfor- 



mations like those in Rem. 2.31 (see also Def. 2.34), iterated by successive composition. 
Furthermore we make use of the simplified notation as introduced in Not. |2.32| 
We construct the monad which underlies the initial representation of (S, £), 

STS : [S, Set] -»■ [S, Set] . 

It associates to any set family of variables V G [S, Set] an inductive set of terms with 
the following constructors: 

• for every classic arity (of degree n) 

a = [&l% 1 x...x[Q^] am ^[e n ] a (3.5) 

we have a family of constructors indexed n times by t = (ti, . . . , t n ) as well as by the 
context V £ [S, Set] : 

a t (V) : STS^)^)^) x . . . x STS^ 1 ^)^^) -> STS(V% (v , t) 

• a family of constructors 

Var(y) 4 : V t -)• STS(V) t 
indexed by contexts and the set S of sorts. 
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The monadic structure is, accordingly, denned in the same way as in jZsilO] . by variables- 
as-terms — using the constructor Var — and flattening. 
(3) The representation structure on the monad STS is defined by currying, and corresponds 
to Zsido's: given an arity a of degree n in X, we must specify a module morphism 

a : dom(a,STS) — > cod(a,STS) , 
where dom(a,STS) and dom(a,STS) are modules in Mod(STS n ,Set). We define 

a £ (V,t)(a):=a t (y)(a) , 
that is, the image under the constructor a from the definition of the monad STS. This 



yields a morphism of modules a of degree n; note that according to Rem. 3.17 it would 
be equivalent to specify a family af of module morphisms of suitable type, indexed by 
t, which is actually done by Zsido. 
(4) Given any other representation R over a set of sorts T, initiality of S gives a "translation 
of sorts" g : S — >■ T. 

The morphism i : STS — > R on terms is defined by structural recursion. Unfolding 
the definition of colax monad morphism, we need to define, for any context V G [S, Set], 
a map of type 

i v : V t' G T, g(STS(V)) tl -* R{gV)f ■ 



Via the adjunction of Rem. 2.12 we equivalently define a map i as a family 

i v : V t G S, STS(V) t -)• R(gV) 9 (t) ■ 

Let a £ STS(V)t be a term. In case a = Var(V) t (i> ) is the image of a variable v £ Vt, 
we map it to 

iv(Vzr(V) t (v)) := V R (gV)(g(t))(ctype(v)) . 
Otherwise the term a = at(V)(ai, . . . , a^) G STS(F) cr (y )t ) is mapped to 

i V (ut(V)(a 1 ,...,a k )):=a R (g(n)(V,t))(i(a 1 ),...,i(a k )) . (3.6) 



This map is well-typed: note that g(n)(V,t) = (gV,g*{t)) by definition (Def. 2.29) and 
g(n)((V, t) T ) = (gV, (7*(t)) r , i.e. context extension and retyping permute. 

The axioms of monad morphisms, i.e. compatibility of this map with respect to 
variables-as-terms and flattening are easily checked: the former is a direct consequence 
of the definition of i on variables, and the latter is proved by structural induction. This 
definition yields a morphism of representations; consider the arity a of S. For this arity, 



the commutative diagram of Def. 3.30| informally reads as follows: one starts in the 



upper-left corner with a tuple of terms, say, (ax, ... , afc) of STS. Taking the upper-right 
path corresponds to the translation of the image of this tuple under the map a s , i.e. 
under the constructor a of STS. The lower-left path corresponds to the image under 
the module morphism a R of the translated tuple {i{a\), . . . ,i(ak))- The diagram thus 



precisely states the equality of Eq. (3.6). We thus establish that i is (the carrier of) a 
morphism of representations (g, i) : (S, E) — > R. 
(5) Unicity of the morp hism i : (S, S) — > R is proved making use of the commutative 



diagram of Def. 3.30| Suppose that (</, i') : (S, S) — >■ R is a morphism of representations. 



We already know that g = g' by initiality of S. By structural induction on the terms of 
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STS we prove that i = %': using the same notation as above, for a = att{V)(ai, . . . , a&) 
we have 

i'(a) = a R (i'(ai),...,i'(a k )) l = a R (i(ai), ... ,i(a k )) = i(a) . 

In case a = Var(w) is a variable, considered as a term, the fact that both i and i' are 
monad morphisms ensures that i(Vav(v)) = i'(Vax(v)) = r^5 / (ctype(u)). Thus we have 
proved i = %' . □ 

An application of this theorem is the specification of translations from one language (S, S) 

- associated to a typed signature (S, S) --to another (£', E'). We place ourselves in 
the category of representations of (5, £). In order to obtain said translation as an initial 
morphism in this category, it suffices to equip (S', £') with a representation of (S, S). Doing 
so consists in, firstly, representing S in the set S', yielding a translation of types S — > S'. 
Afterwards the translation of terms is given, via a similar iteration principle as for types, by 
representing the signature £ in £'. 

We illustrate this iteration principle using two examples: firstly, in Sec. [4] we specify 
a translation of logics from classical logic to intuitionistic logic. Secondly, we specify 
translations from PCF to the untyped lambda calculus via initiality. The latter example is 
implemented in the proof assistant Coq, cf. Sec. [5] 

4. Logics and Logic Translations 

In the style of the Curry-Howard isomorphism, we consider propositions as types and proofs 
of a proposition as terms of that type. In this example we present the typed signatures of 
two different logics, 

• Classical propositional logic, called CPC, and 

• Intuitionistic propositional logic, called IPC. 

According to our main theorem each of those signatures gives rise to an initial representation, 
a logical type system. We then use the iteration principle on CPC in order to specify a 
translation of propositions and their proofs from CPC to IPC. The translation we specify 
is actually the propositional fragment of the Godel-Gentzen negative translation [TVD88, 
Def. 3.4]. 

4.1. Signatures of Classical and Intuitionistic Logic. We present typed signatures 
for classical and intuitionistic propositional logic. Their respective signatures for types — 
propositions — are the same: let P denote a set of atomic formulas. The types — propositions 

- of classical (CPC) and intuitionistic (IPC) propositional logic are given by the following 
algebraic signature: 

V:={p:0, T:0, A : 2, _L : 0, V : 2, =>: 2} . 

where for any atomic formula p G P we have an arity p : 0. We call V the initial representation 
as well as its underlying set, i.e. the propositions of CPC and IPC. For the set V we use 
infixed binary constructors. Note that negation is defined as —*A = A =^> _L. 
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Inference Rule 



Arity 



rhi 



Ti 
■J-I 



r h a 

rh A Th B 

rh aab 

r h AAB 



Ai 



r h AAB 



r h b 

T,A h B 



Aei 

A E 2 



rhi^B rh a 



rh s 
r h a 

r h AVB 
Th5 



^E 



Vn 
V12 



r h AV B 
FhAvB T,A\-C T,BhC 



V E 



EM 



ThC 
Th^AV A 

Table 1: Inference Rules of CPC and their Arities 



Ti : * ->• [9] T 

J_i : [6] ± -> [0]! 

Ai : [6]! x [0] 2 ->. [0] 1A2 

Aei : [6]i A2 -)• [6]! 

Aei : [6]i A2 -»■ [6] 2 

=>i: [6 1 ], -> [9]i^ 2 

^e: [e]i^ 2 X [9]i -)■ [6] 2 

Vn : [6]i -> [9]iv2 

V12 : [6] 2 -»■ [e]i V2 

V E : [6]iv2 x [&% x [9 2 ] 3 -> 

EM : * -)■ [9]^ivi 



[eh 



4.1.1. Signature of CPC. Concerning the terms of CPC, every inference rule is given by 
an arity. In Table [TJ the inference rules and their corresponding arities are presented. Each 
inference rule corresponds to a (family of) term — proof — constructor (s), where inference 
rules without hypotheses are constants. Note that the initial representation automatically 
comes with an additional inference rule 

var 



T,A\-A 
corresponding to the monadic operation rj, i.e. to the variables-as-terms constructor. Analo- 



gously to Rem. 3.27 it is not necessary, using our approach, to specify this inference rule 
explicitly by an arity in the term signature of the logic under consideration; any logic we 
specify via a typed signature automatically comes with this rule. 

4.1.2. Signature of IPC. The type signature and thus the formulas of intuitionistic preposi- 
tional logic IPC are the same as for CPC. However, the term signature is missing the arity 
EM for excluded middle. 
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4.2. Translation via Initiality. The translation of propositions (_) 9 ■ V — > V, i.e. on 
the type level, is spec ified by a representation g of the algebraic signature V in the set V . 



According to Def. 3.2 we must specify, for any arity s : n S N of V, a map towards V taking 
a suitable number of arguments in P, 

s g . fin _^ fi _ 

There is, of course, a canonical such map for each arity — but this would only give us the 
identity morphism on V . We represent V in V not by this identity representation, but in 
such a way that we obtain the Godel-Gentzen negative translation: 

=><?:=(=>), ±9 .-^±_ . 

The proofs of IPC are given by the signature of CPC without the classical axiom EM. We 
represent EM in IPC by giving, for any proposition A, a term of type —>(—>—>A A —>A), e.g., 

var var 



A A ->A I — i-i>1 A ->A . -i-i^l A -i A h -i-iA A ->A . 

Aei : — , AE2 



— i — 1^4 A ->A I — i-i>l ' —1—1^4 A -i4L h -i-4 

=^E 

-.-.^4 A-.AI-1 . 

h -i-iA A -i-4 ^ _L 
As another example, we give a representation of Vn, that is, for any proposition A and B, 
we give a term of type A 9 — > -i(-iA 9 A -^B g ): 

A 9 



^ v„ 



-i-iA 9 V -i-iB 9 
De Morgan 

^A 9 A ^B 9 ) 

Here the proof of A 9 — > ^^A 9 and of the used De Morgan law are abbreviations for longer 
proofs in IPC. We leave it up to the reader to find representations in IPC for the other 
arities. 

4.3. Some Remarks. This representation of the signature of CPC in IPC yields the 
(propositional fragment of the) Godel-Gentzen translation of propositions specified in 
Troelstra and van Dalen's book |TvD88| Def. 3.4], denoted on propositions with the same 
name as its specifying representation, 

(_) 9 : V -+ V . 

Note that our translation of terms shows that any provable proposition in CPC translates 
to a provable proposition in IPC, since we provide the corresponding proof term via our 
translation: 

T h c A implies V 9 hi A 9 . 
However, a logic translation t from a logic L to another logic L' should certainly satisfy an 
equivalence of the form 

r h L A if and only if P* h L / A 1 . 

Our framework does not ensure the implication from right to left, and is thus deficient from 
the point of view of logic translations. 
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5. Translation of PCF to ULC, Formalized 
In this section we explain our formalization in the proof assistant Coq of an instance of our 



main theorem (cf. Thm. 3.33), for the typed signature of PCF (cf. Exs. 3.4 3.8 3.28). For 
this, we make several simplifications: 

• we do not define a notion of 2-signature, but specify directly a Coq type of representations 
of PCF and 



we use dependent Coq types to formalize arities of higher degree (cf. Def. 3.16), instead of 
relying on modules on pointed categories. A representation of an arity of degree n is thus 
given by a family of module morphisms, indexed n times over the respective object type 



(cf. Rem. 3.17). 



The formalization builds up on a library of category theory the details of which we will not 
go into. We just note that Coq types play the role of sets in our formalization. Maps of 
sets are hence modelled by Coq functions and thus executable. In particular, the initial 
morphism is a Coq function, and we can compute the translation of a term of PCF inside 
Coq. For now we just give some key definitions of the theory-specific part. For complete 
description we refer to the online documentation and source code repositorjjj As a side 
note, the theorem relies on the axioms eq_rect_eq and functional_extensionality_dep from 
the Coq standard library. 

In the following we write Coq code in sans serif font. For a morphism / from object 

a to object b in any category we write f: a > bin Coq. Composition of morphisms 

/ : a — >• b and g : b — > c is written f ;; g. 

5.1. The Category of Representations. A representation of the typed signature of 
PCF is given by 



(1) a representation of the types of PCF (in a Coq type Sorts), cf. Ex. 3.4 

(2) a monad P on the category of families of sets indexed by Sorts (in the formalization: 
I TYPE Sorts) and 



(3) representations of the arities of PCF (cf. Ex. 3.28), i.e. morphisms of P-modules with 

suitable source and target modules. 
We implement representations of PCF as a "bundle", i.e. a record type, whose components — 
or "fields" - are these [3] items. In order to make the definitions more traceable, we first 
define what a representation of the term signature of PCF in a monad P is, in the presence 



of an SpcF-monad (cf. Def, |3,14 ), Unfolding the definitions, we suppose given a type Sorts, a 
monad P on I TYPE Sorts and three operations on Sorts: a binary function Arrow — denoted 
by an infixed "~~>" — and two constants Bool and Nat. 

Variable Sorts : Type. 

Variable P : Monad (ITYPE Sorts). 

Variable Arrow : Sorts — > Sorts — > Sorts. 

Variable Bool : Sorts. 

Variable Nat : Sorts. 

Notation "a — > b" := (Arrow a b) (at level 60, right associativity). 

In this context, a representation of PCF is given by a bunch of module morphisms. Note 
that M[t] denotes the fibre module of module M w.r.t. t, and d M // u denotes derivation of 



http://math.unice.fr/laboratoire/logiciels 
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module M w.r.t. u. The module denoted by a star * is the terminal module, which is the 
constant singleton module. 

Class PCF_rep_struct := { 

app : forall u v, (P[u ~~> v]) x (P[u]) > P[v]; 

abs : forall u v, (d P // u)[v] > P[u ~~> v]; 

rec : forall t, P[t ~~> t] > P[t]; 

tttt : * > P[Bool]; 

ffff : * > P[Bool]; 

nats : forall m:nat, * > P[Nat]; 

Succ : * > P[Nat — > Nat]; 

Pred : * > P[Nat — > Nat]; 

Zero : * > P[Nat — > Bool]; 

CondN: * > P[Bool — > Nat — > Nat — > Nat]; 

CondB: * > P[Bool — > Bool — > Bool — > Bool]; 

bottom: forall t, * > P[t] }. 

After abstracting over the section variables we package all of this into a record type: 

Record PCF_rep := { 

Sorts : Type; 

Arrow : Sorts — > Sorts — > Sorts; 

Bool : Sorts ; 

Nat : Sorts ; 

pcf_rep_monad :> Monad (ITYPE Sorts); 

pcf_rep_struct :> PCF_rep_struct pcf_rep_monad Arrow Bool Nat }. 
Notation "a ~~> b" := (Arrow a b) (at level 60, right associativity). 

The type PCF_rep later will constitute the type of objects of the category of representations 



of PCF. Accordingly, a morphism of representations from P to R (cf. Def. 3.30) consists of 
a morphism of representations of the types of PCF — with underlying map Sorts_map — 
and a colax morphism of monads which makes commute some diagrams. We first define 
the diagrams we expect to commute, before packaging everything into a record type of 
morphisms. The context is given by the following declarations: 

Variables P R : PCF_rep. 

Variable Sorts_map : Sorts P — > Sorts R. 

Hypothesis HArrow : forall u v, Sorts_map (u ~~> v) = Sorts_map u ~~> Sorts_map v. 

Hypothesis HBool : Sorts_map (Bool _ ) = Bool _ . 

Hypothesis HNat : Sorts_map (Nat _ ) = Nat _ . 

Variable f : colax_Monad_Hom P R (RETYPE (fun t => Sorts_map t)). 

We explain the commutative diagrams of Def. |3.30 for the successor arity. We ask the 
following diagram to commute: 

Program Definition Succ_hom' : = 
Succ ;; f [(Nat — > Nat)] ;; Fib_eq_Mod ;; IsoPF 

* >* ;; f ** Succ. 
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Here the morphism Succ refers to the representation of the successor arity either of P 
(the first appearance) or R (the second appearance) — Coq is able to figure this out itself. 
The morphism f ** Succ thus is the pullback along f of the module morphism Succ of the 
representation R — recall that pullback is functorial. The domain of the successor is given 
by the terminal module *. Accordingly, we have that dom(Succ, /) is the trivial module 
morphism with domain and codomain given by the terminal module. We denote this module 

morphism by * >*. The codomain is given as the fibre of / of type i — )■ u. The 

two remaining module morphisms are isomorphisms which do not appear in the informal 
description. The isomorphism IsoPF is needed to permute fibre with pullback — in the 
formalization the 2-category of monads behaves like a bicategory, since composition is 
associative up to isomorphism only, due to Coq conversion being stronger than propositional 
equality. The morphism Fib_eq_Mod M H takes a module M and a proof H of equality of two 

object types as arguments, say, H : u = v. Its output is an isomorphism M[u] > M[v]. 

Here the proof is of type 

H : Sorts_map (Nat ~~> Nat) = Sorts_map Nat ~~> Sorts_map Nat 

and Coq is able to figure the proof, i.e. the term, out itself. 

Finally, we prove that the objects and morphisms thus defined yield a category, where 
the composition and identity are given by composition and identity of monad morphisms, 
respectively. We omit the description of this part of the formalization. 

5.2. The Initial Representation. We want to prove that the above specified category 
admits an initial object, consisting of the term monad associated to the signature of PCF, 
together with the canonical representation morphisms. The monad of PCF terms is defined 
as an inductive dependent type, parametrized by the initial set of types of PCF, denoted by 
TY, as well as a context V. First we define the constants of PCF, afterwards the inductive 
type family of terms: 

Inductive Consts : TY — > Type := 
| Nats : nat -> Consts Nat 
| ttt : Consts Bool 

| condB: Consts (Bool ~> Bool ~> Bool ~> Bool). 

Inductive PCF (V: TY -> Type) : TY -> Type: = 
| Bottom: forall t, PCF V t 
| Const : forall t, Consts t -> PCF V t 
| Var : forall t, V t -> PCF V t 

| App : forall t s, PCF V (s ~> t) -> PCF V s -> PCF V t 
| Lam : forall t s, PCF (opt t V) s -> PCF V (t ~> s) 
| Rec : forall t, PCF V (t ~> t) -> PCF V t. 

Renaming, i.e. functoriality, and substitution, are then defined via structural recursion, 
and the monad laws are proved by induction, accordingly. We refer to the source code or 
documentation for details. 

Given any representation R of PCF, the initial morphism is iteratively defined according 
to the proof of the main theorem: 
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Fixpoint init V t (v : PCF V t) : 

R (retype (fun tO => lnit_Sorts_map tO) V) (lnit_Sorts_map t) := 
match v with 

| Var t v => weta R (ctype _ v) 

| u @ v => app (init u, init v) 

| Lam v => abs (rlift R 

(@der_comm TY (Sorts R) (fun t => lnit_Sorts_map t) _ V ) _ (init v)) 

| Rec _ v => rec (init v) 

| Bottom _ => bottom tt 

| y ' => match y in Consts tl return 

R (retype (fun t2 => lnit_Sorts_map t2) V) (lnit_Sorts_map tl) with 
Nats m => nats m _ tt 
succ => Succ _ tt 
condN => CondN _ tt 
condB => CondB _ tt 
zero => Zero _ tt 
ttt => tttt _ tt 
fff => ffff _ tt 
preds => Pred _ tt 
end 
end. 

Again, the necessary properties, i.e. the monad morphism laws, representation laws, and 
finally, unicity, are proved by induction. Note that the above family of maps init V really is 



the family of the adjuncts of the initial morphism under the adjunction of Rem. 2.12 cf. 



also the proof of Thm. 3.33 The component on V of the initial morphism is obtained by 
precomposing the map init V with pattern matching on the constructor ctype. 



5.3. Representing PCF in the Untyped Lambda Calculus. The untyped lambda 
calculus, formalized as a monad ULC : Set — > Set, gives rise to a monad uULC : [{*}, Set] — > 
[{*},Set], in which we represent PCF. Our implementation does not allow us to identify 
those two monads, but we do so informally. By its iterative definition, the initial morphism 
depends on the representation in the codomain monad. Giving two different representations 
of PCF in ULC gives rise to two different translations of PCF to ULC. As an example, one 
might choose to use different representations of natural numbers or the fixed point operator. 
This is simply done by defining two different ULC terms as image of the fixed point operator 
rec. We define the Turing fixed point combinator 

:= (\x.\y.(y(xxy))){\x.\y.(y(xxy))) 

and the Curry combinator 

Y := Xf.{\x.f{xx)){\x.f{xx)) 

formally: 

Eval compute in ULC_theta. 

= Abs (Abs (1 @ (2 @ 2 @ 1))) @ Abs (Abs (1 @ (2 @ 2 @ 1))) 
Eval compute in ULC_Y. 
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= Abs (Abs (2 © (1 @ 1)) @ Abs (2 @ (1 © 1))) 

Here some Coq notation is used to translate the "nested datatype" style of variable binding 
to a slightly more readable de Bruijn notation, and an infixed "@" denotes application. After 
equipping both of the maps 

x t-t App(Y, x) and x t-t App(0, x) 

with a structure as module morphism, we can use either of them as a representation of the 
rec arity of PCF. 

Program Instance ULCRec_theta_s t : Module_Hom_struct 

(fun V y => (ULC_theta _ ) © y). 
Definition ULCRec_theta t := Build_Module_Hom (ULCRec_s t). 
Program Instance ULCRec_Y_s t : Module_Hom_struct 

(fun V y => (ULC_Y _ ) © y). 
Definition ULCRec_Y t := Build_Module_Hom (ULCRec_Y_s t). 

The representational structure of PCF in uIJLC determines the iteratively defined initial 
morphism: 

Program Instance PCF_ULC_rep_s : 

PCF_rep_struct (Sorts:=unit) uULC (fun => tt) tt tt := { 

app r s := ULCApp r s; 
abs r s := ULCAbs r s; 

rec t := ULCReC_theta t ; (* replace here to 

translate to Y instead of Turing operator *) 

tttt := ULCttt ; 
ffff := ULCfff ; 
nats m := ULCNat m ; 
Succ := ULCSucc ; 
CondB := ULCCondb ; 
CondN := ULCCondn ; 
bottom t := ULCBottom t ; 
Zero := ULCZero ; 
Pred := ULCPred }. 

As a final remark, we emphasize that the obtained translation from PCF to the untyped 
lambda calculus is executable in Coq. For instance, we can translate the PCF term negating 
boolean terms as follows: 

Eval compute in 
(PCF_ULC_c (fun t => False) tt (ctype _ 
(Lam (condB ' @@ x_bool ©© fff ' @@ ttt ')))). 
= Abs (Abs (Abs (Abs (3020 1))) © 1 © Abs (Abs 1) © Abs (Abs 2)) 

Here we use infixed "@@" to denote application of PCF, and x_bool is a notation for a de 
Bruijn variable of type Bool of the lowest level, i.e. a variable that is bound by the Lam 
binder of PCF in above term. 
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6. Future Work 

We have given an algebraic interpretation of maps between languages over different sets of 
types. Our initiality theorem yields a iteration operator that allows for the specification of 
such translations. 

Another line of work of ours is to integrate semantics into initiality results |Ahrll] . We 
study untyped syntax equipped with reduction rules by considering it as a relative monad 
[ACU10] (over the diagonal functor A : Set — > Ord) from the category of sets to the category 
of preorders Ord. A 2-signature consists of a syntactic signature £ which defines the terms 
of a language, as well as of a set A of inequations, each of which specifies a reduction rule. 
Representations of such a 2-signature (£, ^4) are representations of £ which verify each 
inequation a £ A. We prove that the category of representations of (X,*4) has an initial 
object. 

The present work carries over to relative monads, and we can thus study translations of 
languages over different types which are equipped with reduction rules. In a forthcoming 
work we will prove an initiality theorem for simply-typed syntax with reduction rules, and 
we will present a translation via initiality from PCF, equipped with its usual reduction rules, 
to ULC with beta reduction. The translation is ensured to be semantically faithful. 
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